home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / free.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  286 b   |  30 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4.  
  5. Description:
  6.  
  7. This code tests references to free variables from compiled code.
  8.  
  9. Usage:
  10.  
  11. (go) -> Unbound variable x
  12.  
  13. (define x 23)
  14.  
  15. (go) -> 23
  16.  
  17. (set! x)
  18.  
  19. (go) -> Unassigned variable x
  20.  
  21. (set! x 34)
  22.  
  23. (go) -> 34
  24.  
  25. |#
  26.  
  27. (declare (usual-integrations))
  28.  
  29. (define (go)
  30.   x)